Hệ thống quản lý nguồn nhân lực Dự án năm cuối trong c#
1 Public Class Frm_Search
2
3 Private Sub fillCmboxDepartment() ' for getting deparment names from database
4
5 Dim query As String = "Select department_id, department_name From Department order by department_name"
6 Dim dtDeptt As DataTable = getDataTable(query)
7
8 cmboxDeptt.DataSource = dtDeptt
9 cmboxDeptt.DisplayMember = "department_name"
10 cmboxDeptt.ValueMember = "department_id"
11
12 If cmboxDeptt.Items.Count > 0 Then
13 cmboxDeptt.SelectedIndex = 0
14 End If
15
16 End Sub
17
18 Private Sub fillCmBoxJobTitles()
19
20 Dim query As String = "Select job_id, job_title From Employee_Job_Info order by job_title"
21 Dim dtEmp As DataTable = getDataTable(query)
22
23 cmboxTitle.DataSource = dtEmp
24 cmboxTitle.DisplayMember = "job_title"
25 cmboxTitle.ValueMember = "job_id"
26
27 If cmboxTitle.Items.Count > 0 Then
28 cmboxTitle.SelectedIndex = 0
29 End If
30
31 End Sub
32
33 Private Sub Frm_Search_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
34
35 Try
36
37 Me.DoubleBuffered = True
38 Me.Invalidate()
39 fillCmboxDepartment()
40 fillCmBoxJobTitles()
41 cmboxDeptt.Text = "Select - Department"
42
43 Catch ex As Exception
44
45 MsgBox(ex.Message, MsgBoxStyle.Critical)
46
47 End Try
48
49 End Sub
50
51 Private Sub cmboxDeptt_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmboxDeptt.SelectedIndexChanged
52
53 Try
54
55 Dim query = "Select E.* "
56 query = query & " From Employee E"
57 query = query & " Inner Join Department D on E.department_id = D.department_id"
58 query = query & " Where department_name = '" & cmboxDeptt.Text & "'"
59 dgvEmployee.DataSource = getDataTable(query)
60
61 Catch ex As Exception
62
63 MsgBox(ex.Message, MsgBoxStyle.Critical)
64
65 End Try
66
67 End Sub
68
69 Private Sub cmboxTitle_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmboxTitle.SelectedIndexChanged
70
71 Try
72
73 Dim query = "Select E.employee_id, E.full_name, J.start_date , J.end_date, D.department_name"
74 query = query & " From Employee_Job_History J"
75 query = query & " Inner Join Employee E on E.employee_id = J.employee_id "
76 query = query & " Inner Join Department D on D.department_id = J.department_id"
77 query = query & " Inner Join Employee_Job_Info Ji on Ji.job_id = J.job_id"
78 query = query & " Where Ji.job_title = '" & cmboxTitle.Text & "'"
79 dgvEmployeeJob.DataSource = getDataTable(query)
80
81 Catch ex As Exception
82
83 MsgBox(ex.Message, MsgBoxStyle.Critical)
84
85 End Try
86
87 End Sub
88
89 Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
90
91 Try
92
93 Dim query = "Select E.employee_id, E.full_name, E.salary, D.department_name"
94 query = query & " From Employee E"
95 query = query & " Inner Join Department D on D.department_id = E.department_id"
96 query = query & " Where E.salary > " & Convert.ToInt32(txtStart.Text) & " And E.salary < " & Convert.ToInt32(txtEnd.Text) & ""
97 dgvSalary.DataSource = getDataTable(query)
98
99 Catch ex As Exception
100
101 MsgBox(ex.Message, MsgBoxStyle.Critical)
102
103 End Try
104
105 End Sub
106
107 End Class